home *** CD-ROM | disk | FTP | other *** search
/ The X-Philes (2nd Revision) / The X-Philes Number 1 (1995).iso / xphiles / hp48_2 / tools.exe / EXAMPLES / GEO / GESUBS.S < prev    next >
Text File  |  1991-07-18  |  565b  |  17 lines
  1.     TITLE Geometry Library Subroutine Module
  2.  
  3. INCLUDE GEROMID.H
  4. INCLUDE GEEXTDEC.H
  5.  
  6. *****************************************************************
  7. * The main module contains the subroutines for the user words.
  8. * Each routine is named with a NULLNAME compiler directive, and
  9. * has a corresponding entry in the external declarations file.
  10. *****************************************************************
  11. NULLNAME GEtimesPI ( % --> %*PI )
  12. * Multiplies real number by PI
  13. ::
  14.   %PI %*
  15. ;
  16. *****************************************************************
  17.